#tag Window
Begin Window Window1
   BackColor       =   16777215
   Backdrop        =   ""
   BalloonHelp     =   ""
   CloseButton     =   True
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   HasBackColor    =   False
   Height          =   187
   ImplicitInstance=   True
   LiveResize      =   False
   MacProcID       =   0
   MaxHeight       =   32000
   MaximizeButton  =   False
   MaxWidth        =   32000
   MenuBar         =   2572287
   MenuBarVisible  =   True
   MinHeight       =   64
   MinimizeButton  =   True
   MinWidth        =   64
   Placement       =   0
   Resizeable      =   False
   Title           =   "Demo"
   Visible         =   True
   Width           =   146
   Begin digiNum numDisp
      AcceptFocus     =   ""
      AcceptTabs      =   ""
      AutoDeactivate  =   True
      Backdrop        =   ""
      ControlOrder    =   0
      Enabled         =   True
      EraseBackground =   True
      foreColour      =   65280
      Height          =   84
      HelpTag         =   ""
      Index           =   0
      InitialParent   =   ""
      Left            =   20
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabPanelIndex   =   0
      Top             =   14
      UseFocusRing    =   True
      Visible         =   True
      Width           =   36
      BehaviorIndex   =   0
   End
   Begin PushButton PushButton1
      AutoDeactivate  =   True
      Bold            =   ""
      Cancel          =   ""
      Caption         =   "Test"
      Default         =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   31
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabIndex        =   1
      TabPanelIndex   =   0
      TextFont        =   "System"
      TextSize        =   0
      Top             =   134
      Underline       =   ""
      Visible         =   True
      Width           =   80
      BehaviorIndex   =   1
   End
   Begin digiNum numDisp
      AcceptFocus     =   ""
      AcceptTabs      =   ""
      AutoDeactivate  =   True
      Backdrop        =   ""
      ControlOrder    =   2
      Enabled         =   True
      EraseBackground =   True
      foreColour      =   65280
      Height          =   84
      HelpTag         =   ""
      Index           =   1
      InitialParent   =   ""
      Left            =   77
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      TabPanelIndex   =   0
      Top             =   14
      UseFocusRing    =   True
      Visible         =   True
      Width           =   36
      BehaviorIndex   =   0
   End
End
#tag EndWindow

#tag WindowCode
#tag EndWindowCode

#tag Events PushButton1
	#tag Event
		Sub Action()
		  dim i as Integer
		  i = 10 * numDisp(0).digit + numDisp(1).digit
		  i = (i + 1) mod 100
		  numDisp(0).digit = i \ 10
		  numDisp(1).digit = i mod 10
		  numDisp(0).Refresh
		  numDisp(1).Refresh
		  
		End Sub
	#tag EndEvent
#tag EndEvents
